DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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111111 NN NN gagqgqa@a =u UU IIIIIT  RRRRRRRR —«EEEEEEEEEE 
II1111 NN NN gagaaa_ wu UU  IIIIII  RRRRRRRR EEEEEEEEEE 
II NN NN QQ aa UU UU II RR RR EE 
II NN NN QQ ad UU UU II RR RR EE 
II NNNN NN QQ aa UU UU II RR RR EE 
Il NNNN NN QQ aa UU UU II RR RR EE 
II NN NN NN QQ aa UU UU II RRRRRRRR —EEEEEEEE 
II NN NN NN Q QQ uu UU II RRRRRRRR —- EEEEEEEE 
II NN NNNN QQ @Q QQ UU UU II RR RR EE 
II NN NNNN QQ QQ QQ UU UU II RR RR EE 
II NN NN Q UU UU II RR ORR EEE rane 
II NN NN QQ QQ UU UU II RR RR £E oe 
HII] NN NN add QQ YUUUUUUUUU §=IITIIT ~—RR RR EEEEEEEEEE vin 
HITT] = (NN NN 000 QQ YUUUUUUUUU §IIIIIT ~—RR RR EEEEEEEEEE sees 
LL eeeee! SSSSSSSS 
LL WI SSSSSSSS 
cL ooo oe 
LL II $5 
LL II $5 
tL I] S§ 
LL II SSSSSS 
LL I] SSSSSS 
LL II - SS 
LL II . S§ 
LL I SS 
LL I $5 
LULLLLLLLL §=—sITII «= SSSSSSSS 
LULLLLLLLE «= sTIIIII = SSSSSSSS 
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E INQUIRE = INQUIRE DCLS COMMAND EXECUTION 
T YO4-060" 


ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor ite 
ONLY IN ACCORDANCE WITH THE TERMS OF ti bicee SE_ AND WITH THE 
INCLUSION OF Ma avnent corrien NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
® 
* 
t 
+ 
* 

TRANSFERRED. * 
* 
* 
+ 
* 
* 
* 
» 
* 
* 
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S 


oo 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepokatinn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


e@e Ge Ge e@e Se Ge Ge Ge Ge e@e . 
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: REAKAEATAAAEATAAAAAAAAAAAAAAAEAAAARAAAAAAAKAARAEAARAAEARAAAAEARAAAERAEAEAEERAEEAAEEEEEE 
W. H. BROWN 28-JUN-1977 
INQUIRE DCLS COMMAND EXECUTION 
MODIFIED BY: 


v03-007 PCG0008 Peter George 18-Jan-1984 
Preserve RS across calls to input routines. 


v03-006 yy od Peter George 12-Jul-1983 
Fix bug tn prompt scene parsing. 
Valida e syabel Length 


v03-005 PCG0006 Peter George 27-May-1983 
Tighten symbol name checking. 


OOOCOCOOCOCOOOooOoooooooooooooooooooooo 


SOOOCCCOSSOSSOSSOOOSCOSOSOOOOOSOSOSOSCOOSSOOSCSOOOSOSOSOOSOOoOOOSoO 


8 v03-004 PCG0005 Peter George 13-Apr-1983 

9 Insert CR/LF before the prompt string. 

0 v03-003 Seonegy Pete orge 17-Feb-1983 

0 Remove reference to Scribe QUAL INQU. 

Use PTR_B_NUMBER to “gs qualifier numbers. 

0 v03-002 PCG0003 Peter orge 03-Dec-1982 

Correct bug chopping off first character of the prompt. 

v03-001 pcecees Peter George 23-Nov-1982 


Use prompt descriptor instead of WRK_L_PROMPT. 
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Mites tai arSee TSBs S3:28:38 PON MRS Macro V04=00 1 
33 ? MACRO LIBRARY CALLS 
61° 
| 6 PRCDEF ; DEFINE PROCESS WORK AREA 
6 WRKDEF : DEFINE COMMAND WORK AREA 
000 64 PTRDEF : DEFINE RESULT PARSE DESCRIPTOR 
0000 65 SYMDEF + DEFINE TYPES OF L 
0000 66 SCLIMSGDEF DEFINE ERROR/STATUS CODES 
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COMMAND EXECUTION 15-SEP-1984 23:58: AX/VMS Macro v04-00 Pp 
278Eb= 138 33:28:38 YOCL SRCIINQUIRE MAR: 1 tise 3) 


b »SBTTL INQUIRE COMMAND 

; DCLSINQUIRE = INQUIRE COMMAND 

; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE INQUIRE 
DCLS COMMAND. 


INQUIR = INQUIR 
04-000 INQUIRE 


: 


COCO COCO COCO COCO OOOO III NINININININIOO 


WN =O ODNAUES WN OC OONAULS WN" OOOnNG GRAN SSSA PAN AS Sao uNown—o Deo J 


3; INPUTS: 
Re = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
R9 = ADDRESS OF SCRATCH STACK. 
R10 = BASE ADDRESS OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 
OUTPUTS: 


RO LOW BIT CLEAR INDICATES COMMAND FAILURE 
RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = DCLS_NORMAL - NORMAL COMPLETION. 


-PSECT DCLSZCODE ,BYTE,RD,NOWRT 


TERMS: .ASCII \ /\<0> 
PUNC: 43: / 


VALID TERMINATORS-BLANK, SLASH, EOL 
-ASCIC 


TRAILING PUNCTUATION 


wOo0v0o0 


9 
97 DCLSINQUIRE:: ; INQUIRE COMMAND 
54 FA AF 9E 9 MOVAB PUNC,R4 3 ASSUME TO BE PUNCTUATED 
55 8 AB 43 9 MOVAB PRC G_LOCAL(R11) RS ; SET DEFAULT TABLE ADDRESS 
00g 3 10 BSBW : HANDLE QUALIFIERS IF PRESENT 
50 3 91 + CMPB #*A/ /,RO : TERMINATE WITH A SPACE? 
D 13 1 BEQL 0$ : IF EQL YE 
0008 = s31 10 gs: BRW 0$ : ELSE REPORT ERROR 
1 $: STATUS arene ; ASSUME SYMBOL IS TOO LONG 
pops 1 105 108: BRW 0$ : 
FFDA* 106 20$ BSBW DCLSMARK 3 MARK CURRENT PARSE POSITION 
FFD7° 1 BSBW CLSMOVTOKN ; GET THE SYMBOL = TOKEN INTO BUFFER 
§6 1 10 BEQL : BR IF NO SYMBOL E 
OOOOOOFF 8F 1 01 10 CMPL R1,#255 : SYMBOL NAME TOO LARGE? 
5 JA 11 BGTRU 9$ ; IF GTRU YES 
57 1 7D 11 MOVa 1,R7 ; SAVE DESCRIPTOR FOR SYMBOL 
C4 AF 03 QO 3A 11 LOCC RO,#3, TERMS ; CHECK FOR VALID TERMINATOR 
D8 3 11 BEQL ; BR_IF INVALID TERMINATOR 
FFBF® 3 11 BSBW OL EERE AL PHA : VERIFY THAT IT IS ACCEPTABLE 
D 9 9 11 BLBC RO, 108 : BR_IF NO-REPORT ERROR 
0 11 BSBW 100$ ; ATTEMPT TO CHANGE THE TABLE ASSIGNMENT 
B4 AF 03 11 LOcc RO,#3, TERMS ; CHECK FOR VALID TERMINATOR 
C 3 11 BEQL : BR fF NO-SYNTAX ERROR 
FFAF* 3 11 BSBW $ LSMOVCHAR ; MOVE DELIMITER (SPACE OR EOL 
1 1 BNEQ $ 3; BRANCH IF PROMPT SPECIFIED 
51 7D 1 mova R7,R1 : NO PROMPT-GET DESCRIPTOR FOR SYMBOL 
1 44 1 INCL R1 ; ADD 1 FOR TERMINATOR 
4 0D 1 TSTL R4 ; PUNCTUATION REQUIRED? 


a 


You~000 : 


DCLS COMMAND execution ° ’ i oa ath 9 te 29:36 AX/VMS Macro v04-00 Page 4 | 
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INQUIRE | 
NQUIRE COMMAND DCL. SRCJINQUIRE.MAR;1 (2), 
1 A 126 BEQL 7$ 3 IF EQL 
§ i : § BRB Hs : IF NEQ YES | 
FFOF® ; 1 5 308: BSBW DCLSMARK : MARK CURRENT PARSE POSITION 
FFOC" 6 1 3 40$:  B8SBW  DCLSMOVCHA : ORY A BYTE INTO THE EXPANSION BUFFER 
FB FO AA 94 f 0 2% BBS MURKY GUOTE, WRK. W_FLAGS(R10),40$ ; WHILE WITHIN QUOTES 
69 130 CMPB sO, #® X20 : BLANK DETECTED OUTSIDE QUOTES? 
ABs 13 006¢ = 131 BEQL «=sBS : YES, THEN SYNTAX ERROR 
50 D 06 1 ; TSTL RO + END OF LINE? 
F | 1 BNEG 408 + NO, CONTINUE | 
FFB" 72 134 BSBW OCLSMARKEDTOKEN + GEf DESCRIPTOR OF STRING 
1 OD 6 f 5 DECL = RI + DISCOUNT EOL CHARACTER | 
54 pp 7 5 50$:  PUSHL R4 : SAVE PUNCTUATION INDICATOR 
FF BA 79 «138 BSBW  DCLSCOMPRESS : COMPRESS THE STRIN 
4 8ED orc 139 POPL R4 : RETRIEVE PUNC. INDICATOR = ANY REQUIRED? 
13° «1 7F = 140 BEQL 57% : IF EQL, NO 
51. 84 «80 81 141 ADDB = (R4) + + ADD LENGTH OF PUNCTUATION 
50 F486 cA p60 4 148 MOVL WRK LEXPANDPTRCRIOD.. RO : GET EXPANSION BUFFER POINTER 
80 84 089 14 MOVB (ROT : MOVE FIRST BYTE TO EOL MARKER 
80 64 9A 908¢ 144 MOVZBL (R4 + MOVE IN 4 MORE BYTES OF IT | 
F486 CA 05) =«CO 008 145 ADDL RODE a erncato : INCREMENT EXPANSION POINTER 
QOOOOIFE BF 51 01 0094 123 57S: CMPL_= «RU #WRK_C_SCRSTKSIZ-2  ; WILL STRING FIT IN PROMPT BUFFER? 
4E 1A 0098 148 BGTRU 75$ ; NO, THEN SIGNAL ERROR 
FO9E CA 51 «BO «(0090 )= «149 MOV = RT,WRK_W PMPTLEN(RIO) SEf PROMPT STRING LENGTH 
59  FEOO £9 i OA2 150 MOVAB =WRK_C =SERSTKSIZ(R9) RO ; Ger BASE OF SCRATCH STACK 
FOA2 CA 59 00 OOA? 151 MOVL 9, ORK K~L_PMPTADDR(R10) : SET PROMPT STRING POINTER | 
69  OAOD BF BO OOAC 138 MOV) #*KOAOB, TROD : MOVE CR/L F ONTO. THE SCRATCH STACK 
FO9E CA 0@ AO 9081 15 ADDW #2,WRK_W_PMPTLEN(R10) 3 ADD_IN LENGTH F CR/LF 
55 DD 0086 154 PUSH 3 SAVE SYMBOL TABLE ADDR ESS 
02 a9 62 51 28 #0088 155 MOVCS R1,(R2),2(R MOVE PROMPT ONTO THE SCRATCH STACK 
0BD 156 SETBIT WRK_V_ aaUtRE WRK_W_FLAGS(R10) 3 INDICAT E DOING A INQ 
oce 157 SETBIT PRC7V mt pRC ~WFCAGS(R11) DISABLE INDIRECT AECOONT TION 
FF37" 30 C6 158 BSBwW DcLSE ORNB ; MAK An INPUT HAPPEN 
FE 34: 0 00¢9 159 BSBW tia ie ; MARK CURRENT POSITION IN BUFFER 
FF31" 30 OOCC 160 60$: ## B8SBW  #$DCLSMOVCHAR ; GET THE ANSWER 
FB 12 CF «161 BNEQ ; UNTIL END OF LINE 
Frac 30 0001 16¢ BSBW DCLSMARKEDTOKEN ; GET DESCRIPTOR OF STRING 
1 07 0004 16 DECL = RI ; REMOVE COUNT FOR 
13 906 164 BEQL 70% : BR IF NULL STRING 13 THE ANSWERE 
FF25° 30 D8 165 BSBW DCLSCOMPRESS ; COMPRESS GUOTES | 
53 D 0008 166 70$: mova aR : SET DESCRIPTOR FOR SYMBOL 
50 Q D DE 16 MOVL § #SYM_K_STRING,RO ; SET TYPE IS STRI | 
BED 1 : POPL RB RESTORE SYMBOL TABLE ADDRESS | 
68 aB OKC £4 16 BISW C_M_DISABL,PRC_W_ FLAGS(RIT) DISABLE CONTROL v4¢ AST'S 
FFIS* 31 Q0EB 170 BRE DCLSALCOCSYM : CREATE THE SYMBOL DEF INTION | 
EB W7¢ 3 COMMAND ERROR 
EB 17% 95S: STATUS BUF OVE : BUFFER OVERFLOW 
07 +11 OOF2 = 175 BRB $ ; 
F4 176 08: STATUS PARMDEL + ERROR STATUS 
05 Fe 1% $:  RSB + RETURN WITH ERROR | 
FC O17 
FC 180 : LOCAL SUBROUTINE TO PROCESS QUALIFIERS 
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= INQUIRE 15-SEP-1984 23:58: AX/VMS Macro Vv04-00 Pa 
INQUIRE COMMAND 27860-1382 33:28:36 YOCL SRCTINOUIRE MAR: 1 ts 3) 
FC O1B1 
FCO g ; OUTPUTS: 
FC 183: RO = TERMINATING CHARACTER 
FC 184: = 0 If ofl NOPUNCTUAT ION 
FC «185: ORES OF PUNCTUATION STRING IF /PUNCT 
ee $ ; RS = nDoness OF GLOBAL SYMBOL TABLE DESCRIPTOR 
os. 3 IF /GLOBAL PE 
4: ! gi 3 ADDRESS OF LOCAL SYMBOL TABLE IF /LOCAL 
FFOI" 0 FC 190 1008: BSBW DCLSSETCHAR : PEEK AT NEXT CHARACTER IN INPUT 
FEFE’ FF 191 BSBW © DCLSMARK t MARK CURRENT PARSE POSITION 
ar 1 01 19¢ CMPB RO, #*AN/\ 3 QUALIFIER? 
45 12 01 19 BNEQ 126$ ; BR IF NO QUALIFIER IN SIGHT 
0230 8F 8B 1 194 PUSHR #*M<R4,RS,R9> $ SAVE INDICATORS 
FEF2" 1 195 BSBW rhe a3. : PROCESS THE QUALIFIER 
0230 8F BA 01 196 POPR #*M<R4,R5,RO> ; RETRIEVE INDICATORS 
§50 €9 O112 19 BLEC_ Oi BR iF ERROR IN QUALIFIER 
51 BA 0c ¢3 011 198 SUBL3 sete ¢ Fila WRK_L_RSLNKT(RIO) RI ; ADDRESS OF PREVIOUS TOKEN DESCR: 
00'8F 05 ay 4 13 ha care R 6_ AUMBER(R1), NCIS Pit AUN PUNCTUATION QUALIFIER? 
0461 16 €1 oi 1 201 BBC #PTR_V_NEGATE,(R1),102$ ; BRANCH IF NOT NEGATED? 
D4 0125 0¢ CLRL RG : INDICATE NO PUNCTUATION 
3 «(11 m ? 03 ann BRB 100$ 
54 FED6 cr 9 9 05 MOVAB PUNE, a RG ; SET PUNC STRING ADDRESS 
61 5 89 105$: 
00'S8F 05 al 4 it 0 08 cpp PTR_B_NUMBER(R1) ,#CLISK -1Niy GLOB GLOBAL QUALIFIER? 
55 28 AB 9E 01 ; 10 MOVAB PRC Q_GLOBAL(R11),R5 — ; SET PROPER TABLE ADDRESS 
BF 11 : 1 oa BRB 1008 : TRY FOR MORE 
00'8F O05 A1 91 0130 ig CMPB = PTR B_NUMBER(R1) ,#CLISK_INQU_LOCA ; LOCAL QUALIFIER? 
BB 12 0142 21% BNEQ 1008 ; IF "NEG nd, IGNORE IT 
55 38 AB H 146 15 ROVAB PRC .Q_LOCAL (R11) ,RS : SET LOCAL SYMBOL TABLE 
BE 05 O14A i$ 110$: TSTL  (SP)+ : CLEAR RETURN ADDRESS 
05 014¢ 18 120$:  RSB : RETURN TO CALLER 
14D 21 
14D 220 END 


1 3 
INQUIRE = INQUIRE DCLS COMMAND EXECUTION 177360 138% $3: 28:38 rie? Macro V04-00 Page § 
Symbol table 4-SEP=1984 23:41: DCL. SRCJINQUIRE .MAR; 1 (2), 
CLISK_INQU_GLOB teeeneee =X PRC_L_SEVERITY 50 
CLISK-INQU-LOCA eeereeee =X PRC-L_SPWN ¢ 
CLISK~ INQU-PUNC teeneeee =X PRC"L-STACKLM Ad 
CLIS_BuFOV z 01 PRC-L-STACKPT A0 
CLIS-PARMDEL s it PRC_L-STATUS 54 
CLIS“SYMLNG = 2 PRC-L-STS os 
DCLSALLOCSYM teereere =X PRC-L-STV $ 
DCLSCHKALPHA eeeeeere =X PRC_L_SYMBOL $ 
DCLSCOMPRESS eeeeneee =X PRC_L_TMBX 4 
DCLSFORNBLK teeereee x PRC_L-TRMLIST 10 
DCLSINQUIRE 00000006 RG PRC_M_DISABL = Of 
DCLSMARK aeteereee =X PRC_Q_ALLOCREG 9 
DCLSMARKEDTOKEN eeeeeeee =X PRC_Q- COMMAND E 
DCLSMOVCHAR teeneeee =X PRC_Q_FLUSHT IME 0000D 
DCLSMOVTOKN eereneee x PRC_Q-GLOBAL 9002 
DCLSPROCQUAL eeeeneee =X PRC_Q- IMAGENAME D 
DCLSSETCHAR teeneeer XK 0 PRC_Q-KEYPAD 9 3008 
PRC_B_CONTINUE 00000F 3 PRC_Q-LABEL 00 03 
PRC_B_DEFRADIX OO000AE PRC_Q-LOCAL 00000 
PRC_B_EXMDEPMOD 00000AD PRC_Q-SAVEPRIV 900006 
PRC_B_EXMDEPWID PRC_T_OUTDVI 8 Oorie 
PRC_B_EXONLYL PRC_V_IND = 0000000 
=B_FLAGS2 PRC_W_ASTIOSB 66000¢6 
PRC_B_IMGFLAG PRC_W_ASTRETN 90000¢ 
PRC_B_OUTFLAGS PRC_W_ASTSTATUS 9000¢4 
PRC_B_PROMPTLEN PRC_W_ATTMBX 900000 A 
PRC_C_LENGTH PRC_W_FLAGS 0000068 
PRC_G_ COMMAND PRC_W_INPCHAN 0000064 
PRC_G_PROMPT PRC_W_ONLEVEL 000006A | 
C"K-LENGTH PRC-W_OUTIFI 9000114 
PRC_L_CURRKEY PRC_W_OUTISI 0000116 
PRC_L_EXMDEPADR PRC_W_OUTMBXCHN QOOO0CA 
PRC_L_EXTARG PRC_W_OUTMBXREF OOO00CE 
PRC_L_EXTBLK PRC_W_OUTMBXS1Z 00000CC 
PRC_L_EXTCOD PRC_W_PMPTCTRL O0000F | 
PRC-L_EXTHND PRC-W_WAITIOSB 000066 
PRC_L_EXTPRM PTR-B_LEVEL 00000004 
PRC-L-IDFLNK PTR_B_NUMBER 96 99 
PRC_L_IMGACTSTS PTR-B_PARMCNT 00006 
PRC-L_INDCLOCK PTR-B_VALU 000000 
PRC_L_ INDEPTH PTR_C_LENGTH 900000¢ 
PRC_L_INDFAB PTR_K-LENGT 9000¢ 
PRC_L_INDINPRAB PTR-L_DESCR 000 30 
PRC_L_INDOUTRAB PTR-L_ENTITY 0 
PRC_L_IWPRAB PTR-V-NEGATE = 14 
PRC-L-LASTKEY PUNT 03 R 02 
PRC_L_LSTSTATUS SYM_B_FLAGS 000¢ 98 
PRC"L_ONCTLY SYM_B_NONUNIQUE B 
PRC-L_ONERROR SYM-B_TYPE A | 
PRC_L_OUTOF BAND SYM_K-STRING = 0 
PRC_L_OUTRAB SYM-L~BL 4 
PRC-L_OUTRABCTX SYM-L-FL 0 
PRC-L-PPFLIST SYM_T-SYMBOL 
C“L-RECALLPTR SYM-W"SIZE 
PRC“L-RESTART TERAS R 02 
C"L"SAVAP WRK_B_CMDOPT FFFFFFC 
PRC-L-SAVFP WRK-B-MAXPARM FFFFFFDO 
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15-SEP-1984 23:58: AX/VMS Macro v04-00 Page 7 
rae 7 33:29:38 LOCL SRCTINOUIRE. MARS 1 . (2) | 
| 
WRK _B Al FFFFFFD1 
WRK “B"PARMCNT FFFFFFCE 
WRK_B_PARMSUM FFFFFFCE 
WRK"B_RECALLCNT FFFFFFCS 
WRK-B-VA FFFFFFCG 
WRK-B_VERBTYP FFFFFF | 
WRK-C"LENGTH FFFFFG 
WRK_C_SCRSTKSIZ = 00000¢ 
WRK-G_BUFFER FFFFF | 
WRK_G_INPBUF FFFFF89 
WRK-G-RESULT FFFFF9B6 
“K-LENGTH FFF FF 486 
WRK-L-CHARPTR FFFFFGBE 
WRK-L-DISALLOW FFFFFFE6 
WRK_L_ERRORRTN FFFFFOAE 
WRK_L_EXPANDPTR Seeecees 
WRK_L_ IMAGE aaa a4 3 
WRK-L_MARKPTR FEFFFGBA 
WRK—L-PAROUT FEPEEEDS 
WRK_L_PMPTADDR FFFFFOA 
WRK_L_PROMPTRIN FFFFFOAG6 
WRK_L_PROPTR FFFFFFC6 
WRK_L_QUABLK FFFFFFCA 
WRK-L-READRTN FFFFFOAA 
WRK-L-RECALLPTR FFFFFFEA 
WRK-L-RSLEND FEFFFFB6 
WRK"L-RSLNXT FFFFFFBA 
WRK"L~SAVAP FFFFFFFS | 
WRK_L_SAVFP FFFFFFFC 
WRK-L-SAVSP FFFFFFRG 
WRK-L-SIGNALRTN FFFFFED6 
WRK-L-SPECRTN FFFFF9B2 
WRK_L_TAB_ VEC FFFFFFDE 
WRK-L_VERB FPFrrrBe 
WRK_V_ INQUIRE = 0000000 
URK~V~QUOTE = 00000004 | 
WRK_W_FLAGS ptrreres 
WRK-W"FLAGS2 FEFFFFF 
WRK_W_IMGCHAN EEE OnE 
WRK-W"PMPTLEN FFEFFFOSE 
_$$_ = QOO000EF 
tee we wm etree ere e se + 
! Psect synopsis ! | 
PSECT name Allocation PSECT No. Attributes | 
» OS « 00000000 ( -) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC ¢ aa 83 ( 1.) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE | 
OCLSZCODE 0000014D ( 333.) 2¢( 2.) NOPIC USR CON” REL LCL NOSHR EXE RD NOWRT NOVEC BYTE | 
| 
| 
! 
| 
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pause 
VAX-11 Macro Run Statistics DCL.SRCJINQUIRE.MAR;1 


pena mwe waneaewteeeart aoe mace $ 


! Performance indicators ! 


mewn nero em tem wee ere em n wana} 


Phase Page faults CPU Time Elapsed Time 
nitialization 1 0:00: 8. 5 :00: 0.95. 
ommand processing :00:00.71 :00:06.09 

J tabl t ' a :00:03. 

able sor :00. :00:02. 

Pas se “sd Ri : 8: 705. 

Symbo table output 18 : ee :00:00.1 

Psect synopsis output 1 . 0:00:00.0 

Cross-reference output 8 " 30 0:00:00.00 

Assembler run totals 34 0:00:36.14 


The working s (33 Limit was a iad pages. 

27034 ayeee (535 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space of peseeee to hold 464 non-local and 19 Local symbols. 
0 source ti were read in Pass 1, producing 14 object records in Pass 2. 
pages of virtual memory were used to define 18 macros. 


erm ee ee ne sme meen esce ema nen $ 


Macro Library name Macros defined 


55$DUA28: CSYSLIBJSYSBLOMLB.MLB; 1 0 
5SSSDUAZB: $y DCL LLB: i 8 
3 55$DUA28:CSYS.O0BJJLIB.MLB; 1 
$582$DUA 8: SYSLIBISTARLET.. MLB; 2 
TovAis (all libraries) 11 


592 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: INQUIRE/OBJ=OBJ$:JNQUIRE MSRC$: INQUIRE/UPDATE=(ENHS$: INQUIRE) +EXECML$/LIB+L1B$:DCL/LIB+SYSS$LIBRARY : SYSBLOMLB/LIB 
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